home *** CD-ROM | disk | FTP | other *** search
/ Complete Linux / Complete Linux.iso / docs / apps / circuits / spice2g6.z / spice2g6 / spice / Fortran / getm8.f < prev    next >
Encoding:
Text File  |  1989-02-03  |  390 b   |  12 lines
  1.       subroutine getm8(ipntr,ksize)
  2.       implicit double precision (a-h,o-z)
  3.       dimension ipntr(1)
  4. c spice version 2g.6  sccsid=memmgr 3/15/83
  5.       common /memmgr/ cpyknt,istack(1),lorg,icore,maxcor,maxuse,memavl,
  6.      1   ldval,numblk,loctab,ltab,ifwa,nwoff,ntab,maxmem,memerr,nwd4,
  7.      2   nwd8,nwd16
  8.       iwsize=nwd8
  9.       call getmx(ipntr(1),ksize,iwsize)
  10.       return
  11.       end
  12.